10 REM ----------------TRANS.BAS-----------------------
20 CLS : PRINT "NOM FICHIER SOURCE ? (avec extension)"
30 INPUT N$
40 PRINT : PRINT "NOM FICHIER DE DESTINATION ? (avec extension)"
50 INPUT F$
60 PRINT : PRINT
70 PRINT "Transformation fichier d‚cimal en fichier binaire:--->1"
80 PRINT "Transformation fichier binaire en fichier d‚cimal:--->2"
90 PRINT : PRINT "                    +ENTER"
100 INPUT Z$
110 IF Z$ = "2" THEN 230
120 IF Z$ <> "1" THEN 100
130 OPEN N$ FOR INPUT AS #1
140 OPEN "r", #2, F$, 1
150 FIELD #2, 1 AS A$
160 CLS : PRINT "Transformation en cours: "; N$; " en "; F$
170 IF EOF(1) THEN 210
180 INPUT #1, M: M$ = CHR$(M)
190 RSET A$ = M$: PUT #2, F + 1
200 F = F + 1: GOTO 170
210 CLS : PRINT N$; " est transform‚ en "; F$
220 END
230 OPEN F$ FOR OUTPUT AS #2
240 OPEN "r", #1, N$, 1
250 FIELD #1, 1 AS A$
260 CLS : PRINT "Transformation en cours: "; N$; " en "; F$
270 FOR F = 1 TO LOF(1)
280 GET #1, F
290 PRINT #2, ASC(A$);
300 NEXT F
310 GOTO 210
320 REM Fin de trans.bas

